www.gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\Include\RSS_Head.asp
<% Function DateToStr(DateTime,ShowType) Dim DateMonth,DateDay,DateHour,DateMinute,DateWeek,DateSecond Dim FullWeekday,shortWeekday,Fullmonth,Shortmonth,TimeZone1,TimeZone2 TimeZone1="+0800" TimeZone2="+08:00" FullWeekday=Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday") shortWeekday=Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat") Fullmonth=Array("January","February","March","April","May","June","July","August","September","October","November","December") Shortmonth=Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec") DateMonth=Month(DateTime) DateDay=Day(DateTime) DateHour=Hour(DateTime) DateMinute=Minute(DateTime) DateWeek=weekday(DateTime) DateSecond=Second(DateTime) If Len(DateMonth)<2 Then DateMonth="0"&DateMonth If Len(DateDay)<2 Then DateDay="0"&DateDay If Len(DateMinute)<2 Then DateMinute="0"&DateMinute Select Case ShowType Case "Y-m-d" DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay Case "Y-m-d H:I A" Dim DateAMPM If DateHour>12 Then DateHour=DateHour-12 DateAMPM="PM" Else DateHour=DateHour DateAMPM="AM" End If If Len(DateHour)<2 Then DateHour="0"&DateHour DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute&" "&DateAMPM Case "Y-m-d H:I:S" If Len(DateHour)<2 Then DateHour="0"&DateHour If Len(DateSecond)<2 Then DateSecond="0"&DateSecond DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute&":"&DateSecond Case "YmdHIS" DateSecond=Second(DateTime) If Len(DateHour)<2 Then DateHour="0"&DateHour If Len(DateSecond)<2 Then DateSecond="0"&DateSecond DateToStr=Year(DateTime)&DateMonth&DateDay&DateHour&DateMinute&DateSecond Case "ym" DateToStr=Right(Year(DateTime),2)&DateMonth Case "d" DateToStr=DateDay Case "ymd" DateToStr=Right(Year(DateTime),4)&DateMonth&DateDay Case "mdy" Dim DayEnd select Case DateDay Case 1 DayEnd="st" Case 2 DayEnd="nd" Case 3 DayEnd="rd" Case Else DayEnd="th" End Select DateToStr=Fullmonth(DateMonth-1)&" "&DateDay&DayEnd&" "&Right(Year(DateTime),4) Case "w,d m y H:I:S" DateSecond=Second(DateTime) If Len(DateHour)<2 Then DateHour="0"&DateHour If Len(DateSecond)<2 Then DateSecond="0"&DateSecond DateToStr=shortWeekday(DateWeek-1)&","&DateDay&" "& Left(Fullmonth(DateMonth-1),3) &" "&Right(Year(DateTime),4)&" "&DateHour&":"&DateMinute&":"&DateSecond&" "&TimeZone1 Case "y-m-dTH:I:S" If Len(DateHour)<2 Then DateHour="0"&DateHour If Len(DateSecond)<2 Then DateSecond="0"&DateSecond DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&"T"&DateHour&":"&DateMinute&":"&DateSecond&TimeZone2 Case Else If Len(DateHour)<2 Then DateHour="0"&DateHour DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute End Select End Function Function GetUserName(userid) GetUserName="" if userid<>"" then userid=cint(userid) set rsuser=conn.execute("select User_CoolName from Liangjing_User where User_ID="&userid) if not rsuser.eof then GetUserName=trim(rsuser("User_CoolName")) end if rsuser.close set rsuser=nothing end if End Function Function GetCategory(ChildID) GetCategory="" if ChildID<>"" then ChildID=cint(ChildID) set rsChild=conn.execute("select Child_name from Liangjing_SrcChild where Child_id="&ChildID) if not rsChild.eof then GetCategory=trim(rsChild("Child_name")) end if rsChild.close set rsChild=nothing end if End Function Function HTMLEncode(ByVal reString) Dim Str:Str=reString If Not IsNull(Str) Then Str = Replace(Str, ">", ">") Str = Replace(Str, "<", "<") Str = Replace(Str, CHR(9), "    ") Str = Replace(Str, CHR(32), " ") Str = Replace(Str, CHR(39), "'") Str = Replace(Str, CHR(34), """) Str = Replace(Str, CHR(13), "") Str = Replace(Str, CHR(10), "<br/>") HTMLEncode = Str End If End Function Function AddSiteURL(Str) Str=lcase(Str) str=replace(Str,"/uploadfile/",web_http&"uploadfile/") str=replace(Str,"/uploadimg/",web_http&"uploadimg/") str=replace(Str,"uploadimg/",web_http&"uploadimg/") AddSiteURL=str End Function Dim order_by,ClassId order_by=request("order_by") if order_by="" then order_by="3" ClassId=request("Src_Child") Dim sql,wherestr,actionstr,rs Dim Src_Desc,Src_Img wherestr="" if ClassId<>"" then wherestr="where Src_ChildID="&cint(ClassId) end if Dim ChannelName,ChildName ChannelName=Web_Name ChildName="" ChildName=GetCategory(ClassId) if ChildName<>"" then ChannelName=ChannelName&"_"&ChildName select case order_by case "1" ChannelName=ChannelName&"_用户最新顶的" case "2" ChannelName=ChannelName&"_用户顶最多的" case "3" ChannelName=ChannelName&"_最新发布的" case "4" ChannelName=ChannelName&"_人气最高的" case "4" ChannelName=ChannelName&"_评论最多的" case "4" ChannelName=ChannelName&"_最新评价的" case else end select sql="select top 20 Src_ID,Src_UserID,Src_ChildID,Src_Title,Src_Desc,src_img,Src_HitUpdate from Liangjing_Source "&wherestr&" " if order_by = "1" then Sql = Sql & " Order By Src_HitUpdate Desc" elseif order_by = "2" then Sql = Sql & " Order By Src_HitNum Desc" elseif order_by = "3" then Sql = Sql & " Order By Src_AddDate Desc" elseif order_by = "4" then Sql = Sql & " Order By Src_SeeNum Desc" elseif order_by = "5" then Sql = Sql & " Order By Src_RevertNum Desc" elseif order_by = "6" then Sql = Sql & " Order By Src_RevertUpdate Desc" end if Response.Charset = "gb2312" Response.ContentType="text/xml" response.clear %><?xml version="1.0" encoding="gb2312"?> <rss version="2.0"> <channel> <title><![CDATA[<%=ChannelName%>]]></title> <link><%=Web_HTTP%></link> <description><![CDATA[<%=Web_Description%>]]></description> <language>zh-cn</language> <copyright><![CDATA[<%=Web_CopyRight%>]]></copyright> <image> <title><![CDATA[<%=ChannelName%>]]></title> <url><%=Web_HTTP&Web_Logo%></url> <link><%=Web_HTTP%></link> <description><![CDATA[<%=Web_Description%>]]></description> </image>